home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
tpxtable
/
pxtdemo.dfm
/
pxtdemo.txt
< prev
Wrap
Text File
|
1995-12-22
|
12KB
|
493 lines
object ParadoxDemoForm: TParadoxDemoForm
Left = 78
Top = 3
Width = 760
Height = 599
Caption = 'Paradox cascaded delete demo'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
Position = poDefault
WindowState = wsMaximized
TextHeight = 13
object Image1: TImage
Left = 20
Top = 524
Width = 45
Height = 45
Picture.Data = {<image000.bmp>}
Stretch = True
end
object GroupBox1: TGroupBox
Left = 4
Top = 0
Width = 189
Height = 517
Caption = 'Master'
Color = clBtnFace
ParentColor = False
TabOrder = 0
object DBNavigator1: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = MasterSource
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid1: TDBGrid
Left = 8
Top = 48
Width = 173
Height = 461
Hint =
'Master table - MasterCode field is linked to detail #1 and #2 ta' +
'bles'#39's MasterCode field'
Ctl3D = True
DataSource = MasterSource
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox2: TGroupBox
Left = 204
Top = 0
Width = 189
Height = 285
Caption = 'Detail #1'
TabOrder = 1
object DBNavigator2: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = DetailSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid2: TDBGrid
Left = 8
Top = 48
Width = 173
Height = 229
Hint =
'Detail table #1 - MasterCode field is linked to master table'#39's M' +
'asterCode field'
DataSource = DetailSource1
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox3: TGroupBox
Left = 204
Top = 292
Width = 189
Height = 285
Caption = 'Detail #2'
TabOrder = 2
object DBNavigator3: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = DetailSource2
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid3: TDBGrid
Left = 8
Top = 48
Width = 173
Height = 229
Hint =
'Detail table #2 - MasterCode field is linked to master table'#39's M' +
'asterCode field'
DataSource = DetailSource2
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Detail2CheckBox: TCheckBox
Left = 104
Top = 0
Width = 61
Height = 16
Caption = 'View all'
Color = clBtnFace
Ctl3D = True
ParentColor = False
ParentCtl3D = False
TabOrder = 2
OnClick = Detail2CheckBoxClick
end
end
object GroupBox4: TGroupBox
Left = 404
Top = 0
Width = 193
Height = 285
Caption = 'SubDetail #1 / 1'
TabOrder = 3
object DBNavigator4: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = SubDetail11Source
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid4: TDBGrid
Left = 8
Top = 48
Width = 177
Height = 229
Hint =
'SubDetail table #1 / 1 - DetailText field is linked to detail #1' +
' table'#39's Detail1Text field'
DataSource = SubDetail11Source
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox5: TGroupBox
Left = 604
Top = 0
Width = 193
Height = 285
Caption = 'SubDetail #2 / 1'
TabOrder = 4
object DBNavigator5: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = SubDetail12Source
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid5: TDBGrid
Left = 8
Top = 48
Width = 177
Height = 229
Hint =
'SubDetail table #1 / 2 - DetailText field is linked to detail #1' +
' table'#39's Detail1Text field'
DataSource = SubDetail12Source
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox6: TGroupBox
Left = 404
Top = 292
Width = 193
Height = 285
Caption = 'SubDetail #1 / 2'
TabOrder = 5
object DBNavigator6: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = SubDetail21Source
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid6: TDBGrid
Left = 8
Top = 48
Width = 177
Height = 229
Hint =
'SubDetail table #2 / 1 - DetailText field is linked to detail #2' +
' table'#39's Detail1Text field'
DataSource = SubDetail21Source
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox7: TGroupBox
Left = 604
Top = 292
Width = 193
Height = 285
Caption = 'SubDetail #2 / 2'
TabOrder = 6
object DBNavigator7: TDBNavigator
Left = 8
Top = 20
Width = 172
Height = 25
DataSource = SubDetail22Source
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 0
end
object DBGrid7: TDBGrid
Left = 8
Top = 48
Width = 177
Height = 229
Hint =
'SubDetail table #2 / 2 - DetailText field is linked to detail #2' +
' table'#39's Detail1Text field'
DataSource = SubDetail22Source
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
ParentShowHint = False
ShowHint = True
TabOrder = 1
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Detail1CheckBox: TCheckBox
Left = 308
Top = 0
Width = 61
Height = 16
Caption = 'View all'
Color = clBtnFace
Ctl3D = True
ParentColor = False
ParentCtl3D = False
TabOrder = 7
OnClick = Detail1CheckBoxClick
end
object Detail11CheckBox: TCheckBox
Left = 508
Top = 0
Width = 61
Height = 16
Caption = 'View all'
Color = clBtnFace
Ctl3D = True
ParentColor = False
ParentCtl3D = False
TabOrder = 8
OnClick = Detail11CheckBoxClick
end
object Detail12CheckBox: TCheckBox
Left = 708
Top = 0
Width = 61
Height = 16
Caption = 'View all'
Color = clBtnFace
Ctl3D = True
ParentColor = False
ParentCtl3D = False
TabOrder = 9
OnClick = Detail12CheckBoxClick
end
object Detail21CheckBox: TCheckBox
Left = 508
Top = 292
Width = 61
Height = 16
Caption = 'View all'
Color = clBtnFace
Ctl3D = True
ParentColor = False
ParentCtl3D = False
TabOrder = 10
OnClick = Detail21CheckBoxClick
end
object Detail22CheckBox: TCheckBox
Left = 708
Top = 292
Width = 61
Height = 16
Caption = 'View all'
Color = clBtnFace
Ctl3D = True
ParentColor = False
ParentCtl3D = False
TabOrder = 11
OnClick = Detail22CheckBoxClick
end
object Button1: TButton
Left = 84
Top = 532
Width = 89
Height = 33
Caption = 'Exit'
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = Button1Click
end
object MasterTable: TPXTable
Active = True
AfterInsert = RefreshDetailTables
AfterEdit = RefreshDetailTables
AfterPost = RefreshDetailTables
AfterDelete = RefreshDetailTables
DatabaseName = 'PROBA'
TableName = 'MASTER.DB'
Left = 12
Top = 16
end
object MasterSource: TDataSource
DataSet = MasterTable
Left = 40
Top = 16
end
object DetailTable1: TPXTable
Active = True
AfterInsert = RefreshSubDetailTables1
AfterEdit = RefreshSubDetailTables1
AfterPost = RefreshSubDetailTables1
AfterDelete = RefreshSubDetailTables1
DatabaseName = 'PROBA'
IndexFieldNames = 'MasterCode'
MasterFields = 'MasterCode'
MasterSource = MasterSource
TableName = 'DETAIL1.DB'
Left = 212
Top = 16
end
object DetailSource1: TDataSource
DataSet = DetailTable1
Left = 240
Top = 16
end
object DetailTable2: TPXTable
Active = True
AfterInsert = RefreshSubDetailTables2
AfterEdit = RefreshSubDetailTables2
AfterPost = RefreshSubDetailTables2
AfterDelete = RefreshSubDetailTables2
DatabaseName = 'PROBA'
IndexFieldNames = 'MasterCode'
MasterFields = 'MasterCode'
MasterSource = MasterSource
TableName = 'DETAIL2.DB'
Left = 212
Top = 308
end
object DetailSource2: TDataSource
DataSet = DetailTable2
Left = 240
Top = 308
end
object SubDetail11Source: TDataSource
DataSet = SubDetail11Table
Left = 440
Top = 16
end
object SubDetail12Table: TPXTable
Active = True
DatabaseName = 'PROBA'
IndexFieldNames = 'Detail1Text'
MasterFields = 'Detail1Text'
MasterSource = DetailSource1
TableName = 'DETAIL1B.DB'
Left = 612
Top = 16
end
object SubDetail12Source: TDataSource
DataSet = SubDetail12Table
Left = 640
Top = 16
end
object SubDetail21Table: TPXTable
Active = True
DatabaseName = 'PROBA'
IndexFieldNames = 'Detail2Text'
MasterFields = 'Detail2Text'
MasterSource = DetailSource2
TableName = 'DETAIL2A.DB'
Left = 412
Top = 308
end
object SubDetail22Table: TPXTable
Active = True
DatabaseName = 'PROBA'
IndexFieldNames = 'Detail2Text'
MasterFields = 'Detail2Text'
MasterSource = DetailSource2
TableName = 'DETAIL2B.DB'
Left = 612
Top = 308
end
object SubDetail21Source: TDataSource
DataSet = SubDetail21Table
Left = 440
Top = 308
end
object SubDetail22Source: TDataSource
DataSet = SubDetail22Table
Left = 640
Top = 308
end
object SubDetail11Table: TPXTable
Active = True
DatabaseName = 'PROBA'
IndexFieldNames = 'Detail1Text'
MasterFields = 'Detail1Text'
MasterSource = DetailSource1
TableName = 'DETAIL1A.DB'
Left = 412
Top = 16
end
end